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EDTSSCRREGION = set the scrolling region 16-Sep-1984 01:40: AX-11 Bliss-32 V4.0-74 P 1 
™ 1erSeb=4982 FSiSk98 | PANT EBS lesaze Mh Or 748 29° 4) 
aU tus "EDTSSCRREGION = set the scrolling region’ 
MODULE EDTSSCRREGION ( ! Set the scrollin 
pment = ‘v04-000' ! File: SC REG on "BL! Edit: $MB1006 


BEGIN 


. 
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'e 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LI 
ie INCLUSION OF THE ASOVE COPYRIGHT NOTICE. THIS S$ 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH 
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* 
x 
® 
® 
® 
® 
® 
® 
* 
® 


sEAND WITH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


'@ 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

'® AND SHOULD NOT BE CONSTRUED AS AC ITMENT BY DIGITAL EQUIPMENT 

;* CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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lee 
3 : FACILITY: EDT -- The DEC Standard Editor 
0 4 ABSTRACT: 
: This module outputs a sequence to change the scrolling region. 
3 ENVIRONMENT: Runs at any access mode - AST reentrant 
4 040 AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
4 g MODIFIED BY: 
4 4 i 1-001 ~ Original. bus 12-Feb-1981 This module was created by 
4 5 : extroct ing the routine 4 TS$8C, ar=i98t from module SCREEN. 
4 § ! I= § - regularize headers. 
4 ! 1- - Don't set the serehiea” region on a VT52. 38s 31-Aug-1982 
48 8 ! 1-004 - Reinta n the cursor position JBS 0 5st -1 
49 9 1 | 1-005 - Add check for scrolling terminal. SMB 21-Oct-1982 
29 29 1- - Save the current top and bottom scrolling parameters. SMB 11-Jan-1983 
2 52 
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SBTTL "Declarations 
TABLE OF CONTENTS: 


WS 
= 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSSC_SETSCLLREG : NOVALUE; 


| INCLUDE FILES: 


WN 


; 1 : 
3 1 $ 
3 1 3 
5 1 3 
3 1 3 
3 1 3 
3 1 3 
3 1 3 
; 1 3 
3 1 3 
3 1 3 
: 1 : 
i 68 3 | REQUIRE "EDTSRC:EDTREQ"; i 
: ¥ 14) 7 
= Be a | omen | 
.. oF 644 1 g 
s £6 645 1 BIND 3 
; 03 +) ESC_BRACKET = UPLIT (XSTRING (XCHAR (ASC_K_ESC), 'C")); : 
—. b48 1 LITERAL : 
; g : ESC_BRACKET_LEN = 2; ; 
: 80 ? 1! ; 
; ; ; i EQUATED SYMBOLS: . ; 
| Reg i — ; 
; «85 586 1 | OWN STORAGE: F 
aay 
: 88 tt: 1 oon ; 
: 89 0 1 ! EXTERNAL REFERENCES: ; 
; 90 1 : } : 
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SINE ERTBRRENIDLiadt® SAEOSUCATOG cee WERSSCISR AUSHOG WTAE ETT 
33 é ZSBTTL “EDTSSSC_SETSCLLREG = set the scrolling region’ 
95 na ROUTINE EDTSSSC_SETSCLLREG ( et Fag deresimng region 
B ! Bottom Line 
6 ) : NOVALUE = 
3 - 


FUNCTIONAL DESCRIPTION: 


oo 
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This routine puts the escape sequence to change the perot ling region 
into the roraet buffer. T and & define the top and bottom Line of the 
desired scrolling region. 


FORMAL PARAMETERS: 


AAO 


T Top line 
B Bottom Line 
IMPLICIT INPUTS: 

EDTS$$G_TOP_SCREG 


' 

i 

i 

' 

' 

! 

i] 

EDT$$G-BOT-SCREG 
EDT$$G_T1_SCROLL 
' 

' 

4 

' 
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Secese 


EDTSS$G_TI_TYP 
IMPLICIT OUTPUTS: 


Con 


oO 
(0.00 0D 


EDT$$G_TOP_SCR 
EDT$$G_BO0T_SCR 


ROUTINE VALUE: 
NONE 
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SIDE EFFECTS: 
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00 

701 NONE 

re 

20 _ 

704 

oy? BEGIN 

7 exTee® ROUTINE 

708 EDTSSFMT_CH : NOVALUE, ! Output a character 

709 EDTSSFMT_DCML : NOVALUE, ' Output a number is decimal 
710 EDTSSFMT_LIT : NOVALUE, ! Qutput a string without editing 
ah EDTSSSC_POSCSIF : NOVALUE; ! Position the cursor 

Hg EXTERNA 

714 EDTS$G_TOP_SCREG, ' Current top parameter 

715 EDT$$G_BOT_SCREG, } current bottom parameter 
ig epTs G-TI_SCROLL, ' Scrolling terminal 

71 EDT$$G_TI_TYP, ! Terminal type 

Ay EDT$$G_PRV_COL, ' Cursor column 
071 EDT$$G_PRV_LN; ! Cursor line 
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R 
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IF (C-EDTSSG_11 TYP GOL TERM. 
AND ((.T"NEG .EDTSSG_TOP 
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TI_ CROLL) ! 
Be EDTS$G_BOT_SCREG))) 
THEN 

BEGIN 
EDTSSFMT_LIT (ESC_BRACKET, ESC_BRACKET_LEN); 
IF (.T NEQ 0) THEN EDTSSFMT_DCML (.T + 1); 
EDTSSFMT_CH (2C';'); 
EDTSSFMT-DCML (.8); 

A EDTSSFMT-CH (xC'r'S; 

! Setting the scrolling region homes the cursor. 


EDT$$G_PRV_LN = 0: 
a EDTS$G-PRV-COL = 0; 


Save a copy of the current scrolling region parameters 
EDT$$G_TOP_SCREG = .T; 
cel pes OT _SCRes = .B; 


END; ! of routine EDTS$SC_SETSCLLREG 


-TITLE EDTSSCRREGION EOTSSCRRESION - set the scrolling 
on 


-IDENT \V04-000\ 
-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
00 00 5B 1B 00000 P.AAA: .ASCII <27>\C\<0><0> 
ESC_BRACKET= 


P.AAA 
.EXTRN EDTSSFMT_CH, EDTSSFMT_DCML 
-EXTRN EDTSSFMT-LIT, EDT$S$SC~POSCSIF 
XTRN EDT$$G_TOP_SCREG 
“EXTRN EDT$$G_BOT-SCREG 
~EXTRN EDTS$G_TI_SCROLL 
“EXTRN EDTS$SG-TI-TYP, EDT$$G_PRV_COL 
-EXTRN EDT$$G_PRU_LN 
007C¢ 000 ENTRY EDTS$S$SC_SETSCLLREG, Save R2,R3,R4,R5,R6 
56 G 9E 0000 MOV EDTSSFMT_CH, R6 
G 9E MOVAB EDISSEMT DCAL, RS 
4 G 9E 0001 MOVAB EDT$$G_BOT_SCREG, R4 
3 6 6 G6 00 F 1 MOVAB EDTS$$G-TOP"SCREG, R3 
02 G ? i cmPL EDTSS¢_T1_TYP, ry) 
49 000000906 1g BLBC = EDT$$G_TI_SCROLL, 3$ 
63 4 Ac D} CMPL  -T, ~EDTS$G"TOP_SCREG 
06 BNEQ)~=s1'$ 
64 08 ac p CMPL ; EDT$$G_BOT_SCREG 
33 0 BEQL § 
2 DD 0003A 18 PUSHL @# 
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BD AF OF C PUSHAB ESC_BRACKET : 
000000006 99 02 F i CALLS #3, SFMT_LIT : 
046 A 46 MOVL TT, R : 

0 4b BEQL : 

01 Ae OF C PUSHAB 1(R2) F 

65 te é CALLS #1, EDTSSFMT_DCML $ 

DD 28 PUSHL ; 

66 = 01 FB CALLS #1, EDTSSFMT_CH : 

$5 i FB A ALLS #1, EDTSSFMT_DCML ; 

3 72 Oh FB 000) CALLS. #1, EDTSSFMT_CH , 

900000006 be £4 CLAL A ae : 

00000006 D4 O6A CLRL EDT$$G-PRV-COL : 

63 06 MOVL  R2, EDT$$G-TOP_SCREG ; 

64 08 AC 00 0007 MOVL 8, EDT$$G_BOT_SCREG ; 

04 00077 3$: RET ; 


3; Routine Size: 120 bytes, Routine Base: _EDTSCODE + 0004 


; 175 0745 1 
; 176 0746 1 !<BLF/PAGE> 
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178 Ofek ] END ! of module EDTSSCRREGION 
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PSECT SUMMARY 
Name Bytes Attributes 
EDTSCODE 124 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


o----- “- Symbols -------- Pages Processing 
File Total Py egod Percent Mapped Time 
$255$DUA28: CEDT.SRC »L32;1 377 4 :00.2 
“Hee eTtUAaBSLEDT SRCIPSECTS (3251 5 ; 50 p 80:00:14 


COMMAND QUALIFIERS 


e 
1. 
Lines/CPU Min: 4513" 


peneey Used: 68 pages 
Compilation Complete 
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